home *** CD-ROM | disk | FTP | other *** search
/ ASL 129: Windows Games 3 / ASL 129: Windows Games 3.iso / aslvol29 / disk1 / dpac.cc_ / dpac.cc
Text File  |  1994-07-12  |  13KB  |  262 lines
  1. !----------------------------------------------------------------------
  2. !   DPAC.CCL
  3. !----------------------------------------------------------------------
  4.  
  5. -LABEL 0                { Label 0 }
  6. Revision 1                      { Set the Revision Level }
  7. DsplyMsg Step 1: Initializing modem ...
  8. CanBtn   19                     { If cancel button - just exit }
  9. SetTries 0                      { Initialize Tries to 0 }
  10. ChrDelay 2                      { Initialize Character Delay }
  11. SerReset ~BAUD 0 8 1            { Set the Baud Rate }
  12. HSReset  0 0 17 19              { Reset }
  13. DsplyPic 1                      { Display Picture 1 }
  14. MdmSetup                        { Send out user's premodem init string }
  15.  
  16. -LABEL 1                { Label 1 }
  17. Flush                           { Flush out the Inbound/Outbound Buffers }
  18. MatchStr 1 2 ~CMDESC            { Look for "+++" }
  19. MatchStr 2 2 ~CMDOK             { Look for "OK" }
  20.  
  21. MdmEsc                          { Get the modems attention }
  22. Wait 200                        { Pause for 2 seconds, minimum gap required }
  23.                                 { The Wait will then look at the MatchStr(s) }
  24.  
  25. -Label 2                { Label 2 }
  26. MatchStr 1 3   ~CMDOK           { Look for "OK" }
  27. MatchStr 2 33  ~CMDERR          { Look for "ERROR" }
  28.  
  29. MdmDisc                         { Disconnect }
  30.                                 { Jump to label #3 if we see 'OK' go by }
  31. Wait 200                        { wait for 'OK' from modem }
  32. Jump 33                         { Exit stage left...time out error on modem }
  33.  
  34. -LABEL 3                { Label 3 }
  35. DsplyMsg Step 2: Dialing ~PRFX~CLWT~FONE ...
  36.  
  37. MatchStr 1 43   ~NCTIMEOUT      { ALWAYS look for "TIMEOUT"    }
  38. MatchStr 2 42   ~NCCARRIER      { ALWAYS look for "NO CARRIER" }
  39. MatchStr 3  5   ~C300           { Look for "CONNECT 300"   }
  40. MatchStr 4  6   ~C1200          { Look for "CONNECT 1200"  }
  41. MatchStr 5  7   ~C2400          { Look for "CONNECT 2400"  } 
  42. MatchStr 6  8   ~C4800          { Look for "CONNECT 4800"  }
  43. MatchStr 7  9   ~C9600          { Look for "CONNECT 9600"  }
  44. MatchStr 8  10  ~C14400         { Look for "CONNECT 14400" }
  45. MatchStr 9  10  ~C19200         { Look for "CONNECT 19200" }
  46. MatchStr 10 40  ~NCDIALTONE     { Look for "NO DIALTONE"   }
  47. MatchStr 11 27  ~NCANSWER       { Look for "NO ANSWER"     }
  48. MatchStr 12 41  ~NCVOICE        { Look for "VOICE"         }
  49. MatchStr 13 26  ~NCBUSY         { Look for "BUSY"          }
  50. MatchStr 14 33  ~CMDERR         { Look for "ERROR"         }
  51.  
  52. SetTries 0                      { Initialize Tries to 0 }
  53. CanBtn   18                     { If cancel button hit, Jump to Label 18 }
  54. MdmDial ~TONE ~PRFX~CLWT~FONE   { Dial the Number }
  55.  
  56.                                 { Don't forget that the Wait searches the }
  57.                                 { MatchStr(s) just defined above. }
  58. Wait 4800                       { Wait for CONNECT msg from modem }
  59. Jump 28                         { Else hang up phone & exit }
  60.  
  61. -Label 5                { Label 5 }
  62. SerReset 300 0 8 1              { Set the CommPort Attributes }
  63. Jump 12                         { Jump to Label 12 }
  64.  
  65. -Label 6                { Label 6 }
  66. SerReset 1200 0 8 1             { Set the CommPort Attributes }
  67. Jump 12                         { Jump to Label 12 }
  68.  
  69. -Label 7                { Label 7 }
  70. SerReset 2400 0 8 1             { Set the CommPort Attributes }
  71. Jump 12                         { Jump to Label 12 }
  72.  
  73. -Label 8                { Label 8 }
  74. SerReset 4800 0 8 1             { Set the CommPort Attributes }
  75. Jump 12                         { Jump to Label 12 }
  76.  
  77. -Label 9                { Label 9 }
  78. SerReset 9600 0 8 1             { Set the CommPort Attributes }
  79. Jump 12                         { Jump to Label 12 }
  80.  
  81. -Label 10               { Label 10 }
  82. SerReset 19200 0 8 1            { Set the CommPort Attributes }
  83. Pause 30                        { Pause ... }
  84. Flush                           { Flush it out }
  85. DsplyPic 2                      { Display Picture 2 }
  86. DsplyMsg Step 3: Connecting at 14400 bps ...
  87. Pause 60                        { Pause ... }
  88. ChrDelay 20                     { Set the Character Delay to 2 }
  89. Jump 13                         { Jump to Label 13 }
  90.  
  91. -LABEL 12               { Label 12 }
  92. Pause 30                        { Pause ... }
  93. Flush                           { Flush it out }
  94. DsplyPic 2                      { Display Picture 2 }
  95. DsplyMsg Step 3: Connecting at ~BAUD bps ...
  96. Pause 60                        { Pause ... }
  97. ChrDelay 20                     { Set the Character Delay to 2 }
  98.       
  99. -LABEL 13               { Label 13 }
  100. MatchStr 2 44 ~NCCARRIER        { ALWAYS look for "NO CARRIER" }
  101. MatchStr 3 15 DATAPAC:          { Look for "DATAPAC" }  
  102.  
  103. DsplyMsg Step 4: Requesting network attention ...
  104. Xmit ..\13                      { Send out String }
  105. Wait 240                        { Wait searches MatchStr(s) for a hit }
  106. IncTries                        { Increment Tries }
  107. IfTries 4 28                    { Have we reached 4 Tries ???? }
  108. Jump 13                         { Jump to Label 13 }
  109.  
  110. -LABEL 15               { Label 15 }
  111. ChrDelay 2                      { Set the Character Delay to 2 }
  112. MatchStr 3 16 CALL CONNECTED    { Look for "CALL CONNECTED" }
  113. MatchStr 4 17 PACKET SIZE:      { Look for "PACKET SIZE:" }
  114. DsplyMsg Step 5: Talking to network ...
  115. Xmit ~DPC1\13                   { Send out String }
  116.  
  117. Wait 960                        { Wait searches the MatchStr(s) for a Hit }
  118. Jump 32                         { No hit, jump to Label 32 }
  119.  
  120. -LABEL 16               { Label 16 }
  121. DsplyMsg Step 6: Connecting to America Online ...
  122.  
  123. MatchStr 3 17 PACKET SIZE:      { Look for "PACKET SIZE:" }
  124. Wait 960                        { Wait searches the MatchStr(s) for a Hit }
  125.  
  126. -LABEL 17               { Label 17 }
  127. DsplyPic 3                      { Display Picture 3 }
  128. DsplyMsg Checking Password ...  { Display Message }
  129. Exit 0                          { Exit out and return 0 }
  130.  
  131. -Label 18               { Label 18 }
  132. Hangup                          { Hangup }
  133. Exit -111                       { Exit out and return -111 }
  134.  
  135. -Label 19               { Label 19 }
  136. Exit -111                       { Exit out and return -111 }
  137.  
  138.  
  139. !----------------------------------------------------------------------
  140. !                       Error Messages 
  141. !----------------------------------------------------------------------
  142.                         
  143.                         
  144. -Label 26               { Label 26 }      
  145. Talert The number dialed is busy. Please take the following steps:\13 
  146. Talert 1) Try signing on to America Online again.\13 
  147. Talert 2) To obtain an alternate access number:\13 \13     From the WELCOME screen, click on SCREEN NAME\13     and select NEW LOCAL# and click SIGN ON.\13
  148. Talert 3) If you cannot get connected to America Online, call\13     ~ACUS and report this problem.\13
  149. Jump 51                         
  150.  
  151. -Label 27               { Label 27 }
  152. Talert The number dialed is not answering. Please take the following steps:\13
  153. Talert 1) Try signing on to America Online again.\13 
  154. Talert 2) To obtain an alternate access number:\13 \13     From the WELCOME screen, click on SCREEN NAME\13     and select NEW LOCAL# and click SIGN ON.\13
  155. Talert 3) If you cannot get connected to America Online, call\13     ~ACUS and report this problem.\13
  156.  
  157. Jump 51                         
  158.  
  159. -Label 28               { Label 28 }
  160. Talert The access company failed to respond.\13 \13 1) Please wait a few moments and try to connect to\13     America Online again.\13 
  161. Talert 2) Verify that the correct network is selected:\13 \13     From the WELCOME screen, click on SCREEN NAME\13     and select NEW LOCAL# and click SIGN ON.\13
  162. Talert 3) If the problem persists please refer to the help text.\13     From the Welcome screen click on the SETUP \13     button, then click on the HELP & INFO button.\13 
  163. Jump 51
  164.  
  165. -Label 32               { Label 32 }
  166. Talert The final connection step to ~APPL did not complete.\13 \13 Please wait a few moments and try again.\13
  167. Talert Prior to modifying any modem or system settings\13please refer to the help text. From the Welcome screen\13click on the SETUP button, then the HELP & INFO button.\13 
  168. Jump 51                            
  169.  
  170. -Label 33               { Label 33 }
  171. Talert America Online was unable to initialize your modem.\13Please take the following steps:\13 \13 1) Turn your modem off then back on. \13
  172. Talert 2) Click SETUP, then SETUP MODEM to verify your\13     modem selection.\13 \13 3) Try signing on to America Online again.\13
  173. Talert 4) Check modem cable connections.\13
  174. Talert 5) If the problem persists please refer to the help text.\13     From the Welcome screen click on the SETUP button,\13     then click on the HELP & INFO button.\13 
  175. Jump 51 
  176.  
  177. -Label 40               { Label 40 }
  178. Talert The modem has reported NO DIAL TONE. Please Follow these steps:\13
  179. Talert 1) Check all phone line connections.\13     The line from the wall must be connected to the\13     connector labeled:\13 
  180. Talert \32     "LINE", "TELCO", "WALL" or "JACK".\13 \13     For additional information please refer to your\13     modem manual.\13
  181. Talert 2) Use a telephone to verify that there is a dial tone\13     on the line to the modem.\13    
  182. Talert 3) Refer to the help text. From the Welcome screen\13     click on the SETUP button, then the HELP & INFO\13     button.\13 
  183. Jump 51
  184.  
  185. -Label 41               { Label 41 }
  186. Talert The number dialed did not connect to the access\13company. Please take the following steps:\13 
  187. Talert 1) Click on SETUP then EDIT LOCATION to verify\13     if a "9," or "1," is needed.\13     
  188. Talert 2) To verify the access number:\13 \13     From the WELCOME screen, click on SCREEN NAME\13     and select NEW LOCAL# and click SIGN ON.\13
  189. Talert 3) For additional information refer to the help text.\13     From the Welcome screen click on the SETUP button,\13     then click on the HELP & INFO button.\13
  190. Jump 51
  191.  
  192. -Label 42               { Label 42 }
  193. Talert The modem was unable to get a carrier signal.\13Please take the following steps:\13 
  194. Talert 1) Check all phone line and cable connections\13     to the modem.\13
  195. Talert 2) Click on SETUP then EDIT LOCATION to verify\13     if a "9," or "1," is needed.\13     
  196. Talert 3) To verify the access number:\13 \13     From the WELCOME screen, click on SCREEN NAME\13     and select NEW LOCAL# and click SIGN ON.\13
  197. Talert 4) Refer to the help text. From the Welcome screen\13     click on the SETUP button, then the HELP & INFO\13     button.\13
  198. Talert 5) If the problem persists, call ~APPL at\13     ~ACUS.\13
  199. Jump 51
  200.  
  201. -Label 43               { Label 43 }
  202. Talert The modem detected a TIMEOUT.  Please take the following steps:\13
  203. Talert 1) Your modem may not be working properly.\13     Please try using your modem with another\13     telecommunications package to verify that\13     the modem is working.\13
  204. Talert 2) To verify the access number:\13 \13     From the WELCOME screen, click on SCREEN NAME\13     and select NEW LOCAL# and click SIGN ON.\13
  205. Talert 3) Refer to the help text. From the Welcome screen\13     click on the SETUP button, then the HELP & INFO\13     button.\13
  206. Jump 51
  207.  
  208. -Label 44               { Label 44 }
  209. Talert The connection to the access company has been lost.\13
  210. Talert Please wait a few moments and try again.\13
  211. Jump 51                            
  212.  
  213. -Label 50               { Label 50 }
  214. Alert 52 \13If the problem persists, call ~APPL customer service at ~ACUS.
  215. Exit -1
  216.  
  217. -Label 51               { Label 51 }
  218. Alert 52 \13
  219. Exit -1
  220.  
  221. -Label 52               { Label 52 }
  222. Exit -1
  223.  
  224.  
  225.  
  226.  
  227. !----------------------------------------------------------------------
  228. !                       Hangup Sequence 
  229. !----------------------------------------------------------------------
  230.  
  231. *-Label 0               { Label 0 }     
  232. *CanBtn 2                       { Cancel Button }
  233. *Flush                          { Flush it out }
  234.  
  235. *MatchStr 1 1 ~CMDOK            { Look for "OK" }
  236. *MatchStr 2 1 ~NCCARRIER        { Look for "NO CARRIER" }
  237.  
  238. *MdmEsc                         { Get the Modems attention }
  239. *Wait 210                       { Look to a hit on MatchStr(s) }        
  240.  
  241. *MatchStr 1 1 ~CMDOK            { Look for "OK" }
  242. *MatchStr 2 2 ~NCCARRIER        { Look for "NO CARRIER" }
  243. *MatchStr 3 1 ~CMDESC           { Look for "+++" }      
  244.  
  245. *MdmEsc                         { Send out the Escape String }
  246. *Wait 210                       { Wait for a hit from MatchStr(s) }
  247.  
  248. *-Label 1               { Label 1 }
  249. *MatchStr 1 2 ~CMDESC           { Look for "+++" }
  250. *MatchStr 2 2 ~CMDOK            { Look for "OK" }
  251. *MatchStr 3 2 ~NCCARRIER        { Look for "NO CARRIER" }
  252.  
  253. *MdmDisc                        { Disconnect }
  254. *Wait 300                       { Look for a hit from MatchStr(s) }
  255.  
  256. *-Label 2               { Label 2 }
  257. *MdmRestore                     { Restore }
  258. *Exit 0                         { Exit out and return 0 }
  259.  
  260. ###                             { End of File Marker }
  261.  
  262.